home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
007
/
boostrs.arc
/
XMOVEBG.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1985-11-03
|
642b
|
33 lines
{$IBoDecl}
{$IScreen}
{$IPutStr}
{$ICopies}
{$IBoxul}
{$ISetAtt}
{$IMoveBg}
BEGIN
Mark ( HeapTop );
New ( page[1] );
ClrScr;
Boxul ( 20, 8, 37, 16, 1, 14);
for i := 9 to 15 do
PutStr ( h, Copies ( '▓',16),21, i, 14);
SetAtt ( 38, 9, 40, 17, 30);
SetAtt ( 21, 17, 40, 17, 30);
Read;
SaveScreen ( page[1] );
Boxul ( 20, 8, 37, 16, 1, 14);
for i := 9 to 15 do
PutStr ( h, Copies('▒',16),21, i, 7);
Read;
for i := 1 to 16 do
begin
Movebg ( page[1], 20+(i-1)*2, 8, 40+(i-1)*2, 17, 22+(i-1)*2, 8 );
delay(04);
end;
Release( HeapTop );
END.